5 POKE53272,(PEEK(53272)AND240)OR4:CLR
10 POKE53280,4 :POKE53281,7:POKE54296,0
12 PS(1)=1318+54272:PS(2)=1505+54272:PS(3)=1527+54272:PS(4)=1720+54272
15 PRINT"[147]"CHR$(142)SPC(8)"                        "
16 PRINT""CHR$(142)SPC(8)"  ALL SMILES MAIN MENU  "
17 PRINT""CHR$(142)SPC(8)"                        "
20 PRINT"               PLAY THE GAME"
23 PRINT"                     [144][221]"
25 PRINT"                     [144][221]"
30 PRINT" RUN GAME TUTORIAL  [144][192][219][192]  RUN MAZE MAKER"
33 PRINT"                     [144][221]"
35 PRINT"                     [221]"
40 PRINT"                   QUIT"
50 PRINT"    USE JOYSTICK IN PORT 2 TO SELECT"            :POKE12288,0
51 PRINT"           OR PRESS 'Q' TO QUIT"
52 GOSUB1000
60 ON CH GOTO100,200,300,60000
70 GOTO5
100 PRINT"[147]LOAD"+CHR$(34)+"AS TUT"+CHR$(34)+",8"
110 PRINT"RUN";
120 POKE198,2:POKE631,13:POKE632,13:END
200 PRINT"[147]LOAD"+CHR$(34)+"ALL SMILES"+CHR$(34)+",8"
210 PRINT"RUN";
220 POKE198,2:POKE631,13:POKE632,13:END
300 PRINT"[147]LOAD"+CHR$(34)+"AS MAZE MAKER"+CHR$(34)+",8"
310 PRINT"RUN";
320 POKE198,2:POKE631,13:POKE632,13:END
1000 CH=1
2000 GOSUB3000
2005 GETT$:J=PEEK(56320)
2006 IFT$="Q"THENCH=4:J=111
2007 IFJ=126THENCH=2:GOTO2050
2008 REM  IFJ=127 THEN2005
2009 IFJ=119THENCH=3:GOTO2050
2011 IFJ=125THENCH=4:GOTO2050
2013 IFJ=123THENCH=1:GOTO2050
2015 IFJ=111THENRETURN
2050 ON CH GOTO 2100,2200,2300,2400
2100 GOSUB3000:FORG=PS(2)TOPS(2)+18:POKEG,1:NEXT:GOTO2005
2200 GOSUB3000:FORG=PS(1)TOPS(1)+18:POKEG,1:NEXT:GOTO2005
2300 GOSUB3000:FORG=PS(3)TOPS(3)+18:POKEG,1:NEXT:GOTO2005
2400 GOSUB3000:FORG=PS(4)TOPS(4)+18:POKEG,1:NEXT:GOTO2005
3000 FORT=1TO4:FORG=PS(T)TOPS(T)+18:POKEG,2:NEXTG:NEXTT:RETURN
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8